home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 19
/
CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso
/
CUCD
/
Readers
/
Gui4Cli
/
Docs
/
GC_Chart
< prev
next >
Wrap
Text File
|
1997-12-02
|
5KB
|
327 lines
G4C
winbig -1 -1 390 104 "GC Font Chart (Buttons are 30x14)"
wintype 11110001
xonload
guiopen gc_chart
xonclose
delvar gc_char
guiquit gc_chart
box 0 84 0 20 out button
text 50 88 70 12 "" 3 nobox
gadid 1
gadfont gc.font 12 000
text 100 88 270 12 "" 30 box
gadid 2
gadtxt center
xbutton 0 0 30 14 a
gadfont gc.font 12 000
gc_char = a
gosub gc_chart update
xbutton 30 0 30 14 b
gadfont gc.font 12 000
gc_char = b
gosub gc_chart update
xbutton 60 0 30 14 c
gadfont gc.font 12 000
gc_char = c
gosub gc_chart update
xbutton 90 0 30 14 d
gadfont gc.font 12 000
gc_char = d
gosub gc_chart update
xbutton 120 0 30 14 e
gadfont gc.font 12 000
gc_char = e
gosub gc_chart update
xbutton 150 0 30 14 f
gadfont gc.font 12 000
gc_char = f
gosub gc_chart update
xbutton 180 0 30 14 g
gadfont gc.font 12 000
gc_char = g
gosub gc_chart update
xbutton 210 0 30 14 h
gadfont gc.font 12 000
gc_char = h
gosub gc_chart update
xbutton 240 0 30 14 i
gadfont gc.font 12 000
gc_char = i
gosub gc_chart update
xbutton 270 0 30 14 j
gadfont gc.font 12 000
gc_char = j
gosub gc_chart update
xbutton 300 0 30 14 k
gadfont gc.font 12 000
gc_char = k
gosub gc_chart update
xbutton 330 0 30 14 l
gadfont gc.font 12 000
gc_char = l
gosub gc_chart update
xbutton 360 0 30 14 m
gadfont gc.font 12 000
gc_char = m
gosub gc_chart update
xbutton 0 14 30 14 A
gadfont gc.font 12 000
gc_char = A
gosub gc_chart update
xbutton 30 14 30 14 B
gadfont gc.font 12 000
gc_char = B
gosub gc_chart update
xbutton 60 14 30 14 C
gadfont gc.font 12 000
gc_char = C
gosub gc_chart update
xbutton 90 14 30 14 D
gadfont gc.font 12 000
gc_char = D
gosub gc_chart update
xbutton 120 14 30 14 E
gadfont gc.font 12 000
gc_char = E
gosub gc_chart update
xbutton 150 14 30 14 F
gadfont gc.font 12 000
gc_char = F
gosub gc_chart update
xbutton 180 14 30 14 G
gadfont gc.font 12 000
gc_char = G
gosub gc_chart update
xbutton 210 14 30 14 H
gadfont gc.font 12 000
gc_char = H
gosub gc_chart update
xbutton 240 14 30 14 I
gadfont gc.font 12 000
gc_char = I
gosub gc_chart update
xbutton 270 14 30 14 J
gadfont gc.font 12 000
gc_char = J
gosub gc_chart update
xbutton 300 14 30 14 K
gadfont gc.font 12 000
gc_char = K
gosub gc_chart update
xbutton 330 14 30 14 L
gadfont gc.font 12 000
gc_char = L
gosub gc_chart update
xbutton 360 14 30 14 M
gadfont gc.font 12 000
gc_char = M
gosub gc_chart update
xbutton 0 28 30 14 n
gadfont gc.font 12 000
gc_char = n
gosub gc_chart update
xbutton 30 28 30 14 o
gadfont gc.font 12 000
gc_char = o
gosub gc_chart update
xbutton 60 28 30 14 p
gadfont gc.font 12 000
gc_char = p
gosub gc_chart update
xbutton 90 28 30 14 q
gadfont gc.font 12 000
gc_char = q
gosub gc_chart update
xbutton 120 28 30 14 r
gadfont gc.font 12 000
gc_char = r
gosub gc_chart update
xbutton 150 28 30 14 s
gadfont gc.font 12 000
gc_char = s
gosub gc_chart update
xbutton 180 28 30 14 t
gadfont gc.font 12 000
gc_char = t
gosub gc_chart update
xbutton 210 28 30 14 u
gadfont gc.font 12 000
gc_char = u
gosub gc_chart update
xbutton 240 28 30 14 v
gadfont gc.font 12 000
gc_char = v
gosub gc_chart update
xbutton 270 28 30 14 w
gadfont gc.font 12 000
gc_char = w
gosub gc_chart update
xbutton 300 28 30 14 x
gadfont gc.font 12 000
gc_char = x
gosub gc_chart update
xbutton 330 28 30 14 y
gadfont gc.font 12 000
gc_char = y
gosub gc_chart update
xbutton 360 28 30 14 z
gadfont gc.font 12 000
gc_char = z
gosub gc_chart update
xbutton 0 42 30 14 N
gadfont gc.font 12 000
gc_char = N
gosub gc_chart update
xbutton 30 42 30 14 O
gadfont gc.font 12 000
gc_char = O
gosub gc_chart update
xbutton 60 42 30 14 P
gadfont gc.font 12 000
gc_char = P
gosub gc_chart update
xbutton 90 42 30 14 Q
gadfont gc.font 12 000
gc_char = Q
gosub gc_chart update
xbutton 120 42 30 14 R
gadfont gc.font 12 000
gc_char = R
gosub gc_chart update
xbutton 150 42 30 14 S
gadfont gc.font 12 000
gc_char = S
gosub gc_chart update
xbutton 180 42 30 14 T
gadfont gc.font 12 000
gc_char = T
gosub gc_chart update
xbutton 210 42 30 14 U
gadfont gc.font 12 000
gc_char = U
gosub gc_chart update
xbutton 240 42 30 14 V
gadfont gc.font 12 000
gc_char = V
gosub gc_chart update
xbutton 270 42 30 14 W
gadfont gc.font 12 000
gc_char = W
gosub gc_chart update
xbutton 300 42 30 14 X
gadfont gc.font 12 000
gc_char = X
gosub gc_chart update
xbutton 330 42 30 14 Y
gadfont gc.font 12 000
gc_char = Y
gosub gc_chart update
xbutton 360 42 30 14 Z
gadfont gc.font 12 000
gc_char = Z
gosub gc_chart update
xbutton 0 56 30 14 !
gadfont gc.font 12 000
gc_char = !
gosub gc_chart update
xbutton 0 70 30 14 1
gadfont gc.font 12 000
gc_char = 1
gosub gc_chart update
xbutton 30 56 30 14 @
gadfont gc.font 12 000
gc_char = @
gosub gc_chart update
xbutton 30 70 30 14 2
gadfont gc.font 12 000
gc_char = 2
gosub gc_chart update
xbutton 60 56 30 14 #
gadfont gc.font 12 000
gc_char = #
gosub gc_chart update
xbutton 60 70 30 14 3
gadfont gc.font 12 000
gc_char = 3
gosub gc_chart update
xbutton 90 56 30 14 $
gadfont gc.font 12 000
set translation off
update gc_chart 1 "$"
update gc_chart 2 "This is the '$' character"
xbutton 90 70 30 14 4
gadfont gc.font 12 000
gc_char = 4
gosub gc_chart update
xroutine update
update gc_chart 1 $gc_char
update gc_chart 2 "This is the '$gc_char' character"